home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Otherware
/
Otherware_1_SB_Development.iso
/
mac
/
misc
/
math
/
lifemake.cpt
/
LifeMaker Demo.rsrc
/
LIF2_6079_Brain
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1991-07-16
|
272 b
|
8 lines
RULE Brain (* example of a four state rule *)
VAR sum, stimulus, ready
BEGIN
sum := north[0] + NE[0] + east[0] + SE[0] + south[0] + SW[0] + west[0] + NW[0]
stimulus := sum = 2
ready := center = 0
RETURN (ready AND stimulus) + center[0] + center[0]
END